home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / func.sigma < prev    next >
Text File  |  2007-02-28  |  379b  |  17 lines
  1. 0160 ╞╒╬├ SIGMA(╥┼╞ ARRAY()) ├╠╧╙┼─
  2. 0170   // GIVES THE SUM OF THE ELEMENTS
  3. 0180   // OF ANY SIZE ONE-DIMENSIONAL
  4. 0190   // ARRAY, WHOSE LOWEST ELEMENT
  5. 0200   // IS NUMBERED (1).
  6. 0210   ╘╥┴╨ 
  7. 0220     SUM:=0
  8. 0230     COUNT:=0
  9. 0240     ╠╧╧╨ 
  10. 0250       COUNT:+1
  11. 0260       SUM:+ARRAY(COUNT)
  12. 0270     ┼╬─╠╧╧╨ 
  13. 0280   ╚┴╬─╠┼╥ 
  14. 0290     ╥┼╘╒╥╬ SUM
  15. 0300   ┼╬─╘╥┴╨ 
  16. 0310 ┼╬─╞╒╬├ SIGMA
  17.